home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / UTILITY1 / FDUMP102.ZIP / FD-ABOUT.FRM next >
Text File  |  1993-10-06  |  5KB  |  179 lines
  1. VERSION 2.00
  2. Begin Form Form_About 
  3.    ClientHeight    =   3585
  4.    ClientLeft      =   1185
  5.    ClientTop       =   1410
  6.    ClientWidth     =   3945
  7.    ControlBox      =   0   'False
  8.    Height          =   3990
  9.    Icon            =   FD-ABOUT.FRX:0000
  10.    Left            =   1125
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   3585
  14.    ScaleWidth      =   3945
  15.    Top             =   1065
  16.    Width           =   4065
  17.    Begin Frame FrameShareware 
  18.       BackColor       =   &H00404040&
  19.       Height          =   495
  20.       Left            =   960
  21.       TabIndex        =   10
  22.       Top             =   3000
  23.       Width           =   1815
  24.       Begin Label Lbl_Shareware 
  25.          Alignment       =   2  'Center
  26.          BackColor       =   &H00FFFFFF&
  27.          Caption         =   "ShareWare"
  28.          FontBold        =   -1  'True
  29.          FontItalic      =   -1  'True
  30.          FontName        =   "Lucida Calligraphy"
  31.          FontSize        =   9.75
  32.          FontStrikethru  =   0   'False
  33.          FontUnderline   =   0   'False
  34.          ForeColor       =   &H000000FF&
  35.          Height          =   255
  36.          Left            =   120
  37.          TabIndex        =   9
  38.          Top             =   120
  39.          Width           =   1575
  40.       End
  41.    End
  42.    Begin CommandButton Command1 
  43.       Caption         =   "OK"
  44.       Height          =   375
  45.       Left            =   3120
  46.       TabIndex        =   7
  47.       Top             =   3120
  48.       Width           =   735
  49.    End
  50.    Begin PictureBox Picture1 
  51.       BorderStyle     =   0  'None
  52.       Height          =   495
  53.       Left            =   120
  54.       Picture         =   FD-ABOUT.FRX:0302
  55.       ScaleHeight     =   495
  56.       ScaleWidth      =   495
  57.       TabIndex        =   0
  58.       Top             =   840
  59.       Width           =   495
  60.    End
  61.    Begin Label Label7 
  62.       Alignment       =   2  'Center
  63.       Height          =   255
  64.       Left            =   120
  65.       TabIndex        =   8
  66.       Top             =   2640
  67.       Width           =   3735
  68.    End
  69.    Begin Label Label6 
  70.       Alignment       =   2  'Center
  71.       Caption         =   "Buffalo Grove, IL  60089-1217"
  72.       Height          =   255
  73.       Left            =   120
  74.       TabIndex        =   6
  75.       Top             =   2280
  76.       Width           =   3735
  77.    End
  78.    Begin Label Label5 
  79.       Alignment       =   2  'Center
  80.       Caption         =   "1004 Cooper Ct."
  81.       Height          =   255
  82.       Left            =   120
  83.       TabIndex        =   5
  84.       Top             =   1920
  85.       Width           =   3735
  86.    End
  87.    Begin Label Label4 
  88.       Alignment       =   2  'Center
  89.       Caption         =   "TecLogic, Inc."
  90.       FontBold        =   -1  'True
  91.       FontItalic      =   0   'False
  92.       FontName        =   "MS Sans Serif"
  93.       FontSize        =   12
  94.       FontStrikethru  =   0   'False
  95.       FontUnderline   =   0   'False
  96.       Height          =   375
  97.       Left            =   120
  98.       TabIndex        =   4
  99.       Top             =   1440
  100.       Width           =   3735
  101.    End
  102.    Begin Label Label3 
  103.       Alignment       =   2  'Center
  104.       Caption         =   "Copyright 1993"
  105.       FontBold        =   -1  'True
  106.       FontItalic      =   0   'False
  107.       FontName        =   "MS Sans Serif"
  108.       FontSize        =   9.75
  109.       FontStrikethru  =   0   'False
  110.       FontUnderline   =   0   'False
  111.       Height          =   255
  112.       Left            =   720
  113.       TabIndex        =   3
  114.       Top             =   1080
  115.       Width           =   2295
  116.    End
  117.    Begin Label Label2 
  118.       Alignment       =   2  'Center
  119.       ForeColor       =   &H00FFFF00&
  120.       Height          =   255
  121.       Left            =   720
  122.       TabIndex        =   2
  123.       Top             =   600
  124.       Width           =   2295
  125.    End
  126.    Begin Label Label1 
  127.       Alignment       =   2  'Center
  128.       FontBold        =   -1  'True
  129.       FontItalic      =   0   'False
  130.       FontName        =   "MS Sans Serif"
  131.       FontSize        =   18
  132.       FontStrikethru  =   0   'False
  133.       FontUnderline   =   0   'False
  134.       ForeColor       =   &H0000FF00&
  135.       Height          =   375
  136.       Left            =   720
  137.       TabIndex        =   1
  138.       Top             =   120
  139.       Width           =   2295
  140.    End
  141. End
  142. Option Explicit
  143.  
  144. '------------------------------------------------------
  145. ' Process 'OK' Button Click Event
  146. '------------------------------------------------------
  147. Sub Command1_Click ()
  148.   '
  149.   Form_Main.Enabled = True
  150.   Form_About.Visible = False
  151.   Form_Main.Visible = True
  152.  
  153. End Sub
  154.  
  155. '------------------------------------------------------
  156. ' Process Form_Load Event
  157. '------------------------------------------------------
  158. Sub Form_Load ()
  159.   '
  160.   Form_About.Caption = sgProgramName & " About"
  161.   Label1.Caption = sgProgramName
  162.   Label2.Caption = "Version " & sgProgramVersion
  163.   Label7.Caption = "Compuserve ID: " & sgCompuserveID
  164.  
  165. End Sub
  166.  
  167. '------------------------------------------------------
  168. ' Process 'ShareWare' Label Click Event
  169. '------------------------------------------------------
  170. Sub Lbl_Shareware_Click ()
  171.   '
  172.   igFromForm = 2
  173.   Form_xWare.Enabled = True
  174.   Form_About.Visible = False
  175.   Form_xWare.Visible = True
  176.  
  177. End Sub
  178.  
  179.